home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 10 / FM Towns Free Software Collection 10.iso / graphics / tiff / tohoho / cames.bas next >
Encoding:
BASIC Source File  |  1995-02-18  |  655 b   |  24 lines
  1. 1000 CLS:SCREEN@0
  2. 1010 LOAD@"cames.tif"
  3. 2000 COLOR 7,,,4:WAIT 200
  4. 2001 LOCATE 3,2:PRINT "初めて来た、この場所。":WAIT 150
  5. 2002 LOCATE 3,4:PRINT "彼の、とっておきの場所っていってたけど、"
  6. 2003 LOCATE 3,5:PRINT "いったい誰と一緒に見つけたのかしら・・・":WAIT 300
  7. 2004 LOCATE 3,7:PRINT "まっ、いいか♪":WAIT 300
  8. 2005 CLS 1
  9. 2010 FOR I=80 TO 255
  10. 2020 PALETTE 9,[0,I-80,I]
  11. 2030 WAIT 1
  12. 2040 NEXT
  13. 2050 WAIT 500
  14. 3010 FOR I=255 TO 80 STEP -1
  15. 3020 PALETTE 9,[0,I-80,I]
  16. 3030 WAIT 1
  17. 3040 NEXT
  18. 4000 WAIT 100
  19. 4020 PALETTE 8,[255,255,0]:WAIT 10
  20. 4030 PALETTE 8,[0,0,16]:WAIT 10
  21. 5000 MOUSE 0:MOUSE 1,,,0
  22. 5010 IF MOUSE(2,0)=-1 THEN END
  23. 5020 GOTO 5010
  24.